xerox MiniNub.mesa Oct77 free download

File name MiniNub.mesa_Oct77.pdf

m1ninUB.mESA 24-0CT-77 18:38:25 Pago 1 -- MiniNub.Mesa -- Edited by Sandman on October 6, 1977 4:02 PM DIRECTORY AltoFileDefs: FROM "altof11edefs", ControlDefs: FROM "controldefs", CoreSwapDefs: FROM "coreswapdefs", FrameDefs: FROM "framedefs", ImageDefs: FROM "imagedefs", IODefs: FROM "iodefs", LoaderDe's: FROM "loaderdefs", SegmentDefs: FROM "segmentdefs", StreamDefs: FROM "streamdefs", Str1ngDefs: FROM "stringdefs"; MiniNub: PROGRAM IMPORTS CoreSwapDefs, LoaderDefs, SegmentDefs, StreamDefs, StringOefs = BEGIN Program: TYPE = PROGRAM; CallOebugger: PROCEDURE = BEGIN -- user's entry point to debugger state: ControIDefs.StateVector; state.stkptr ~ 0; state.X ~ defaultframe; CoreSwapDefs.CoreSwap[explicitcall, @state]; RETURN END; BadFile: SIGNAL [name: STRING] = CODE; _ LoadNew: PROCEDURE [name: STRING] RETURNS [Program] = BEGIN g: ControlDefs.GlobaIFrameHandle; 9 ~ FrameDefs.New[name f BadFile, LoaderDefs.VersionMismatch, UNWIND => NULL; A~Y => ERROq BadFile[na Ume]] ; IF 9 # ControlDe's.NULLFrame THEN defaultframe ~ g; RETURN[LOOPHOLE[g]] END; defaultframe: ControlDefs.GlobalFrameHandle ~ REGISTER[ControIDefs.Greg]; comcmRequest: short ImageDefs.FileRequest ~ [ body: short[fill:, name: "Com.Cm."], file: NIL, access: SegmentDefs.Read. link: ]; Done: SIGNAL = CODE; debug, start: BOOLEAN; ProcessSwitches: PROCEDURE [s: STRING] = BEGIN i: CARDINAL: inverse: BOOLEAN ~ FALSE; FOR i TN [0 .. s.length) DO SELECT sCi] FROM 'd, '0 =) inverse ~ -(debug ~ TRUE); 's, 'S => IF inverse THEN inverse ~ start ~ FALSE ELSE stan .. TRUE; '- => inverse .. TRUE; ENOCASE =) inverse .. FALSE; fNDLOOP; rNO; TnitSwitches: PROcrOURE = BEGTN debug" fALSE; start .. TRUE; [NO; GelToken: PROCrOUR[ [com: StreamDers.Streamllandle, token, ext. switches: STRING] BEG TN s: STRING; c: CIIARACTER; token.length .. ext.length .. switches.length ~ 0; s .. token; WIIIlE -com.ondor[com] 00 mininUB.mESA 24-0CT-77 18:38:25 Page 2. SELECT (c ~ com.get[com]) FROM IODefs.SP, IODefs.CR =) IF token.length # 0 OR ext. length # 0 OR switches. length # 0 THEN RETURN: I. =) s ~ ext; 'I =) s ~ switches; ENDCASE =) StringDefs.AppendChar[s, c]; ENDLOOP; RETURN END; LoadSystems: PROCEDURE = BEGIN user: PROGRAM: fa: AltoFileDefs.FA; IF comcmRequest.file = NIL THEN RETURN; SegmentDefs.LockFile[comcmRequest.file]; InitSwitches[] ; SkipImage[@fa]: IF debug THEN CallDebugger[]: DO InitSwitches[]: user ~ LoadUser[@fa I Done =) EXIT]: IF debug THEN CallDebugger[]; IF start AND user # LOOPHOLE[ControlDefs.NULLFrame] THEN START user: